  20 .FIGHTERS
NT=0;CLEAR 
   1 GOTO 10
   2 PRINT "S:",;RETURN 
   3 PRINT "I:",;RETURN 
   4 PRINT "W:",;RETURN 
   5 PRINT "D:",;RETURN 
   6 PRINT "C:",;RETURN 
   7 CX=CX-6;PRINT "CH:",;RETURN 
  10 .CHARACTER MAKER
  20 .FIGHTERS
  25 FOR A=0TO 4;PRINT ;NEXT A;CLEAR ;X=400
  30 NT=1
  35 CY=-40
  40 FOR A=1TO 7;@(A)=0;MU=RND (65)+48
  50 FOR Z=20080TO 20088STEP 2;%(Z)=RND (6);NEXT Z;GOSUB 200
  60 NEXT A;NT=1
  65 CY=39;CX=-72
  90 L=RND (60)÷10+1
 100 GOSUB 800
 120 BOX 0,39,160,9,3
 125 PRINT 
 130 BC=RND (32)×8-1
 140 FOR A=1TO 6;CX=48
 145 GOSUB A+1;PRINT #3,@(A);NEXT A
 150 PRINT ;CY=7;GOSUB 870
 180 K=KP;RUN 
 190 IF E<BIF E<CIF E<D E=0
 200 IF D<BIF D<CIF D<E D=0
 210 IF C<BIF C<DIF C<E C=0
 220 IF B<CIF B<DIF B<E B=0
 230 @(A)=B+C+D+E
 240 IF @(A)>18 @(A)=18
 250 RETURN 
 270 FOR Q=11TO 20;@(Q)=0;NEXT Q
 275 CY=-2;W=RND (5)
 280 FOR A=1TO W
 290 Q=RND (10);IF @(Q+10)GOTO 290
 295 CX=-72
 300 @(Q+10)=1;GOSUB Q×10+390
 310 NEXT A;RETURN 
 400 PRINT "SWORD";RETURN 
 410 PRINT "BASTARD";RETURN 
 420 PRINT "LONGBOW";RETURN 
 430 PRINT "CROSS-BOW";RETURN 
 440 PRINT "SPEAR";RETURN 
 450 PRINT "AXE";RETURN 
 460 PRINT "MACE";RETURN 
 470 PRINT "HAMMER";RETURN 
 480 PRINT "TRIDENT & NET",;CY=CY-8;RETURN 
 490 PRINT "SHORTBOW";RETURN 
 500 PRINT "DAGGER";RETURN 
 800 @(7)=RND (3);@(8)=RND (3)
 810 IF @(7)=1IF @(8)=1IF @(1)>11IF @(2)>8IF @(3)>12IF @(5)>8IF @(6)>16PRINT "PALADIN";C=1;GOTO 850
 820 IF @(8)=1IF @(1)>12IF @(2)>12IF @(3)>13IF @(5)>13PRINT "RANGER";C=2;GOTO 850
 830 PRINT "FIGHTER";C=3;GOTO 850
 831 PRINT "LAWFUL ",;RETURN 
 832 PRINT "NEUTRAL ",;RETURN 
 833 PRINT "CHAOTIC ",;RETURN 
 835 PRINT "GOOD";RETURN 
 836 PRINT ;RETURN 
 837 PRINT "EVIL";RETURN 
 850 CY=39;CX=12;PRINT "LEVEL:",#3,L
 855 CX=-64;CY=23;GOSUB 830+@(7);GOSUB 834+@(8)
 860 CY=31;PRINT "  AC:",#3,5-RND (7)
 865 RETURN 
 870 PRINT " WEAPONS:
 880 BOX -36,-14,84,51,3
 890 BOX -36,-18,82,41,3
 900 GOTO 270
:RETURN ;RUN 
